Option Strict Off
Option Explicit On
Friend Class login
	Inherits System.Windows.Forms.Form
	Private Sub cmd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd.Click
		'INGRESAR AL SISTEMA
		Dim resul, j As Short
		j = 0
		'UPGRADE_WARNING: Couldn't resolve default property of object validarUsuario(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		resul = validarUsuario((txt1.Text), (txt2.Text))
		If resul = 1 Then
			'MsgBox " Bienvenido(a)al sistema SICA", , "SICA"
			Call Main_Renamed()
			menu_Renamed.Show() : Me.Close()
		End If
		If resul = 0 Then
			If band <> 1 Then
				MsgBox("Intente de nuevo ", MsgBoxStyle.Critical, "ERROR")
				txt1.Text = "" : txt2.Text = ""
				band = band + 1
			Else
				MsgBox("Acceso Denegado ", MsgBoxStyle.Critical, "ERROR")
				Me.Close()
			End If
			
		End If
	End Sub
End Class